deck10<-read.csv(file="log10.txt",sep=",",head=T)
summary(deck10)

deck20<-read.csv(file="log20.txt",sep=",",head=T)
summary(deck20)